<%
dim linkid
linkid = 2
if not isempty(request("pageno")) or request("pageno")<>0 then
pageno=request.querystring("pageno")
else
pageno=1
end if
if request("pro_type") <> "" then
pro_type=request("pro_type")
else
pro_type=0
end if
if request("mictype") <> "" then
mictype=request("mictype")
else
mictype=0
end if
%>
Now:Home - Honor
Honor
<%
strsql="select * from pro_list where pro_type=1"
if pro_type<>0 then
strsql=strsql&" where pro_type="&pro_type
end if
if mictype<>0 then
strsql=strsql&" where mictype="&mictype
end if
if keyword<>"" then
strsql=strsql&" where pro_name like '%"&keyword&"%'"
end if
strsql=strsql&" order by id desc"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 1
if not rs.eof then
page=12
rs.pagesize=page
maxpage=rs.pagecount
if pageno < 1 then
pageno =1
end if
if pageno+1 >maxpage+1 then
pageno=maxpage
end if
rs.absolutePage=pageno
else
maxpage=1
end if
total = rs.RecordCount
%>
<% while not rs.eof and page>0
%>
|
<% if not rs.eof then
rs.movenext
page=page-1
end if
%>
<% if not rs.eof then %>
<% end if %> |
<% if not rs.eof then
rs.movenext
page=page-1
end if
%>
<% if not rs.eof then %>
<% end if %>
|
<% if not rs.eof then
rs.movenext
page=page-1
end if
%>
<% if not rs.eof then %>
<% end if %>
|
|
|
|
|
|
|
<% if not rs.eof then
rs.movenext
end if
page=page-1
wend
rs.close
set rs=nothing
%>
| 共:<%=total%> picture |
<%=pageno%>/<%=maxpage%>page Back Next |
|
